(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     44229,        919]
NotebookOptionsPosition[     43242,        894]
NotebookOutlinePosition[     43629,        911]
CellTagsIndexPosition[     43586,        908]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "=", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"a11", "a12", "0"},
       {"a21", "a22", "0"},
       {"Ra", "Rb", "Rr"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"iA", "=", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Inverse", "[", "A", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "=", 
   RowBox[{
    RowBox[{"Transpose", "[", "A", "]"}], ".", "A"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iG", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Inverse", "[", "G", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sqrtG", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"Det", "[", "G", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<iA=\>\"", ",", 
   RowBox[{"MatrixForm", "[", "iA", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<G=\>\"", ",", 
   RowBox[{"MatrixForm", "[", "G", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<iG=\>\"", ",", 
   RowBox[{"MatrixForm", "[", "iG", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<sqrtG=\>\"", ",", "sqrtG"}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GH", "=", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         SuperscriptBox["a11", "2"], "+", 
         SuperscriptBox["a21", "2"]}], 
        RowBox[{
         RowBox[{"a11", " ", "a12"}], "+", 
         RowBox[{"a21", " ", "a22"}]}]},
       {
        RowBox[{
         RowBox[{"a11", " ", "a12"}], "+", 
         RowBox[{"a21", " ", "a22"}]}], 
        RowBox[{
         SuperscriptBox["a12", "2"], "+", 
         SuperscriptBox["a22", "2"]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iGH", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Inverse", "[", "GH", "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sqrtGH", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"Det", "[", "GH", "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<GH=\>\"", ",", 
   RowBox[{"MatrixForm", "[", "GH", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<iGH=\>\"", ",", 
   RowBox[{"MatrixForm", "[", "iGH", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<sqrtGH=\>\"", ",", 
    RowBox[{"MatrixForm", "[", "sqrtGH", "]"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.748150017387987*^9, 3.7481501002669964`*^9}, {
   3.7481502531342697`*^9, 3.748150351134679*^9}, {3.7481503817956753`*^9, 
   3.748150396240039*^9}, 3.7481504415937014`*^9, {3.748150572338011*^9, 
   3.7481506672736263`*^9}, {3.748150771651973*^9, 3.748150773533938*^9}, {
   3.748150852274338*^9, 3.7481508742086415`*^9}, 3.748150936952736*^9, {
   3.748150968513301*^9, 3.748151033207762*^9}, {3.748151228828043*^9, 
   3.748151236863692*^9}, {3.7481522941309853`*^9, 3.748152323817563*^9}, 
   3.7481523659319477`*^9, {3.7481524264081526`*^9, 3.7481524912786026`*^9}, 
   3.7481613464805307`*^9, {3.7481650976327305`*^9, 3.748165100926917*^9}, {
   3.748165141737867*^9, 3.748165230872306*^9}, {3.748165315381216*^9, 
   3.748165370630407*^9}, {3.7481654798023343`*^9, 3.7481654892610292`*^9}, {
   3.7481692578537617`*^9, 3.748169279295398*^9}, {3.7577686139902377`*^9, 
   3.7577687286774893`*^9}, {3.7577687765863495`*^9, 3.757768860909814*^9}, {
   3.75776889541652*^9, 3.7577689339594316`*^9}, {3.757769039007972*^9, 
   3.7577690630446844`*^9}, {3.757769135514849*^9, 3.7577691638001957`*^9}, {
   3.757769429067993*^9, 3.757769457226678*^9}, 3.757769587071046*^9, {
   3.7592154628239655`*^9, 3.759215499065191*^9}, {3.759215539906913*^9, 
   3.759215695690635*^9}, {3.759215731904752*^9, 3.7592157403083134`*^9}, {
   3.7592158199044504`*^9, 3.7592158652372065`*^9}, 3.7592159196237593`*^9, {
   3.75922311418956*^9, 3.7592231485436993`*^9}, {3.759223416714119*^9, 
   3.75922347955111*^9}, {3.7592236030667686`*^9, 3.7592237170728793`*^9}, {
   3.7592246081783752`*^9, 3.7592246107514944`*^9}, {3.759224659489154*^9, 
   3.759224759505679*^9}, 3.759225241164158*^9, {3.759225292492553*^9, 
   3.7592253062021246`*^9}, {3.7630869338898373`*^9, 3.763086991682808*^9}, {
   3.763087027860568*^9, 3.763087070334637*^9}, {3.7630871279595566`*^9, 
   3.7630871556715*^9}, {3.7630888329375415`*^9, 3.763088848924837*^9}, {
   3.7630888878258305`*^9, 3.763089082180278*^9}, {3.7630891540880146`*^9, 
   3.763089212329319*^9}, {3.7631578770906415`*^9, 3.763157891267444*^9}, {
   3.763158235331628*^9, 3.763158361001754*^9}, {3.7631584770106387`*^9, 
   3.7631584803367434`*^9}, {3.763158521905547*^9, 3.7631586564005947`*^9}, {
   3.763159575226506*^9, 3.7631596532663355`*^9}, {3.76315977807388*^9, 
   3.763159864517913*^9}, {3.763159953673379*^9, 3.7631600383258386`*^9}, {
   3.763160127503936*^9, 3.7631601764696608`*^9}, {3.763160877253928*^9, 
   3.7631609376861157`*^9}, {3.7631610153683643`*^9, 3.7631610155070333`*^9}, 
   3.7631614163516965`*^9, {3.763161503452248*^9, 3.7631615068918505`*^9}, {
   3.76316170941733*^9, 3.7631617718158064`*^9}, {3.7631618084669642`*^9, 
   3.7631619345489855`*^9}, {3.7631621772964535`*^9, 
   3.7631621945958157`*^9}, {3.7631622954758253`*^9, 
   3.7631623311752043`*^9}, {3.763162573095781*^9, 3.7631625810564933`*^9}, {
   3.763165007014879*^9, 3.7631650157624393`*^9}, {3.763165346894233*^9, 
   3.7631653592342196`*^9}, {3.7631654772141414`*^9, 3.763165490566574*^9}, {
   3.7631655277220955`*^9, 3.7631655926190104`*^9}, {3.7631656581316504`*^9, 
   3.763165704620087*^9}, {3.7631657544622936`*^9, 3.7631658412187023`*^9}, {
   3.7631659442558427`*^9, 3.7631659444143496`*^9}, {3.7631697399580326`*^9, 
   3.76316991533132*^9}, 3.7631699699656982`*^9, {3.763174351402421*^9, 
   3.763174353750779*^9}, {3.7631753037640495`*^9, 3.763175319861272*^9}, {
   3.7631753598098307`*^9, 3.763175371351607*^9}, {3.7631754061492767`*^9, 
   3.763175507092852*^9}, 3.763176110651868*^9, {3.763180564245925*^9, 
   3.7631805959987288`*^9}, {3.763180664242173*^9, 3.7631807171625504`*^9}, {
   3.7631846075493813`*^9, 3.7631847239337234`*^9}, {3.7632013082282653`*^9, 
   3.7632013622073803`*^9}, {3.763201395123904*^9, 3.7632013976278844`*^9}, {
   3.768724636461064*^9, 3.768724643103057*^9}, 3.7687247168880577`*^9, {
   3.7687259170417166`*^9, 3.768725966257715*^9}, {3.768733860636484*^9, 
   3.7687338660954847`*^9}, {3.768733912517484*^9, 3.768733934056484*^9}, {
   3.7858544277444243`*^9, 3.7858546060715413`*^9}, {3.78585467344009*^9, 
   3.785854708823527*^9}, {3.7858553315457616`*^9, 3.785855337641015*^9}, {
   3.785855368016358*^9, 3.785855420088813*^9}, {3.785855909025015*^9, 
   3.785856038063528*^9}, {3.785856088570183*^9, 3.7858561278955564`*^9}, {
   3.785856170002762*^9, 3.785856273233365*^9}, {3.7858563136099195`*^9, 
   3.785856313913683*^9}, {3.785856404692983*^9, 3.785856438530645*^9}, {
   3.7858565398177466`*^9, 3.7858565991205606`*^9}, {3.7858566668158393`*^9, 
   3.7858566880243216`*^9}, {3.7858567275705223`*^9, 
   3.7858567376037087`*^9}, {3.785857347559682*^9, 3.7858574179478493`*^9}, {
   3.7858584670428944`*^9, 3.7858585398252106`*^9}, {3.785858636962559*^9, 
   3.785858640522787*^9}, {3.785858670587372*^9, 3.785858712224944*^9}, {
   3.785858749458946*^9, 3.7858588420628247`*^9}, {3.7858590167141075`*^9, 
   3.7858590428887215`*^9}, {3.7858591191073675`*^9, 3.785859140713535*^9}, 
   3.785859215699136*^9, {3.7858592691705036`*^9, 3.7858592740956554`*^9}, {
   3.785859732487873*^9, 3.7858598203444495`*^9}, {3.785859858638613*^9, 
   3.7858600806077414`*^9}, {3.785860155552374*^9, 3.785860173446438*^9}, {
   3.785860557855685*^9, 3.7858605634063625`*^9}, {3.7858609358542967`*^9, 
   3.785860965302373*^9}, {3.7858610015861034`*^9, 3.785861002527371*^9}, {
   3.7858610335901794`*^9, 3.7858610480888867`*^9}, {3.785861310888216*^9, 
   3.78586134764559*^9}, {3.785861585945227*^9, 3.785861601189365*^9}, 
   3.785861639704359*^9, 3.785861782264332*^9, {3.7858626703013573`*^9, 
   3.7858627949033036`*^9}, 3.7858633369591446`*^9, 3.7858635901030107`*^9, {
   3.78586377259087*^9, 3.785863786465074*^9}, {3.7858638258953657`*^9, 
   3.785863832735037*^9}, {3.7858663769859962`*^9, 3.785866380252453*^9}, {
   3.785867314226081*^9, 3.7858673670049753`*^9}, {3.7858674157390213`*^9, 
   3.7858675183620973`*^9}, 3.786443521126769*^9, 3.7864435713766766`*^9, 
   3.786443660386431*^9, {3.786444574079462*^9, 3.786444669335345*^9}, {
   3.7864463001599927`*^9, 3.7864463036722603`*^9}, 3.786446419553109*^9, {
   3.786446461171731*^9, 3.786446477057373*^9}, {3.786446814881695*^9, 
   3.786446985519944*^9}, {3.7864470272095118`*^9, 3.786447057745755*^9}, {
   3.786447088912509*^9, 3.786447138648816*^9}, {3.786447193993759*^9, 
   3.786447250759598*^9}, {3.786449578316842*^9, 3.7864495891224365`*^9}, {
   3.786449644858076*^9, 3.786449684089555*^9}, {3.786450247122547*^9, 
   3.7864502531488476`*^9}, {3.7864503217215004`*^9, 
   3.7864503381697063`*^9}, {3.810694107588764*^9, 3.8106943923531904`*^9}, {
   3.8106944878209667`*^9, 3.8106945255132203`*^9}, {3.8106945849632916`*^9, 
   3.810694636317973*^9}, {3.810694771994443*^9, 3.81069490393817*^9}, {
   3.810694938731064*^9, 3.8106949735321035`*^9}, {3.8106950611797037`*^9, 
   3.810695089166856*^9}, 3.8106953732763147`*^9, {3.8106954209508605`*^9, 
   3.8106954262496953`*^9}, 3.8106954611344547`*^9, {3.810695501560954*^9, 
   3.810695523032544*^9}, {3.810695583669401*^9, 3.810695628347964*^9}, {
   3.810695660409269*^9, 3.810695704152301*^9}, {3.810696116031282*^9, 
   3.8106961198799925`*^9}, {3.8106962219404044`*^9, 3.810696242808605*^9}, {
   3.8106964753200064`*^9, 3.810696477209955*^9}, {3.8106965597333355`*^9, 
   3.8106965663725867`*^9}, {3.8106966443032484`*^9, 3.810696647206484*^9}, {
   3.810722503608433*^9, 3.8107226654936476`*^9}, {3.81072311533906*^9, 
   3.8107231534631042`*^9}, {3.812589210352528*^9, 3.812589304446389*^9}, {
   3.8125893719424047`*^9, 3.812589478501624*^9}, {3.812589587856048*^9, 
   3.8125896038647747`*^9}, {3.8126325503437624`*^9, 
   3.8126326014195514`*^9}, {3.8128549686842012`*^9, 
   3.8128549687941356`*^9}, {3.8130451620035343`*^9, 3.813045169889459*^9}, {
   3.8183206087977695`*^9, 3.8183206354952345`*^9}, 3.8324070270285006`*^9, {
   3.832407072973501*^9, 3.8324070819324875`*^9}, {3.8324071434792604`*^9, 
   3.832407170913245*^9}, {3.8324105153610115`*^9, 3.8324105153650317`*^9}, 
   3.838988147274657*^9, {3.838988179043666*^9, 3.8389883524186716`*^9}, {
   3.838988629206687*^9, 3.8389887410826874`*^9}, {3.8389891327497053`*^9, 
   3.8389891448440456`*^9}, {3.8389903425353055`*^9, 
   3.8389903435562997`*^9}, {3.838990427837316*^9, 3.8389904450456104`*^9}, {
   3.8389907252536163`*^9, 3.8389907304886084`*^9}, 3.8389913212066746`*^9, 
   3.8390331030290174`*^9, {3.839165620600835*^9, 3.8391659575340805`*^9}, {
   3.8391660164610844`*^9, 3.8391660188050685`*^9}, 3.839166062799084*^9, {
   3.8391662983983617`*^9, 3.8391663039900455`*^9}, {3.839166401157569*^9, 
   3.8391664260295563`*^9}, {3.8391664563985825`*^9, 
   3.8391665271660643`*^9}, {3.8391673683469543`*^9, 3.839167466926094*^9}, {
   3.839167503500153*^9, 3.8391675370714703`*^9}, {3.8391676169762554`*^9, 
   3.839167680708274*^9}, {3.839167731943289*^9, 3.839167749519197*^9}, {
   3.8391680031859474`*^9, 3.8391680083239393`*^9}, {3.839168051575951*^9, 
   3.8391680531959686`*^9}, {3.839168088051008*^9, 3.839168094135991*^9}, {
   3.8391682769846787`*^9, 3.839168337080731*^9}, {3.8391683904997106`*^9, 
   3.839168413175714*^9}, 3.83916864397909*^9, {3.8391686750875587`*^9, 
   3.839168714428542*^9}, {3.8391687469465594`*^9, 3.8391687507245626`*^9}, {
   3.839168834464542*^9, 3.839168866290809*^9}, {3.839168899946811*^9, 
   3.839168922712819*^9}, {3.839168968035813*^9, 3.839168970567823*^9}, {
   3.839169045359809*^9, 3.839169085600784*^9}, {3.839169302290578*^9, 
   3.8391693265371494`*^9}, {3.839169708175756*^9, 3.8391697127087555`*^9}, {
   3.8391697804358563`*^9, 3.8391697819948587`*^9}, {3.8391699731712875`*^9, 
   3.8391699852412877`*^9}, {3.839170208717842*^9, 3.839170219182282*^9}, {
   3.839170569174945*^9, 3.839170577170945*^9}, {3.839170960551553*^9, 
   3.8391709629815516`*^9}, 3.839171888118546*^9, {3.839172834882839*^9, 
   3.8391728751787214`*^9}, {3.8391730062107773`*^9, 3.839173024134774*^9}, {
   3.8391732486748257`*^9, 3.83917325438282*^9}, {3.8391734389317517`*^9, 
   3.8391734904747524`*^9}, {3.8391738488822227`*^9, 
   3.8391738699239254`*^9}, {3.839174277173421*^9, 3.8391742829554214`*^9}, {
   3.8391743337244053`*^9, 3.839174366112199*^9}, 3.8391744412642336`*^9, {
   3.8391751005682554`*^9, 3.839175113124239*^9}, {3.8391751808042545`*^9, 
   3.839175356303198*^9}, {3.839175392477195*^9, 3.8391754223611984`*^9}, {
   3.839175456078521*^9, 3.83917548020552*^9}, {3.8391755729175253`*^9, 
   3.839175601405748*^9}, {3.8391756386068335`*^9, 3.8391756412938533`*^9}, {
   3.839175820080815*^9, 3.839175864504131*^9}, {3.8391766319743986`*^9, 
   3.8391766749093227`*^9}, {3.8391777077597523`*^9, 
   3.8391777572487907`*^9}, {3.8391777898617983`*^9, 3.83917779509778*^9}, {
   3.8391800897127852`*^9, 3.83918012595477*^9}, {3.8394292410523396`*^9, 
   3.839429266612468*^9}, {3.839429368602217*^9, 3.8394293833313074`*^9}, {
   3.8396233767708187`*^9, 3.8396233831651483`*^9}, 3.839623671013212*^9, {
   3.8396509030708003`*^9, 3.839650912030799*^9}, {3.8396737646001205`*^9, 
   3.839673820319213*^9}, 3.8396738576482124`*^9, {3.8396738883372126`*^9, 
   3.839673985993554*^9}, {3.83967402452347*^9, 
   3.8396740674693737`*^9}},ExpressionUUID->"1874d45f-36c8-481d-a96c-\
727d8c067141"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"iA=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["a22", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a12"}], " ", "a21"}], "+", 
          RowBox[{"a11", " ", "a22"}]}]], 
        FractionBox["a12", 
         RowBox[{
          RowBox[{"a12", " ", "a21"}], "-", 
          RowBox[{"a11", " ", "a22"}]}]], "0"},
       {
        FractionBox["a21", 
         RowBox[{
          RowBox[{"a12", " ", "a21"}], "-", 
          RowBox[{"a11", " ", "a22"}]}]], 
        FractionBox["a11", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a12"}], " ", "a21"}], "+", 
          RowBox[{"a11", " ", "a22"}]}]], "0"},
       {
        FractionBox[
         RowBox[{
          RowBox[{"a22", " ", "Ra"}], "-", 
          RowBox[{"a21", " ", "Rb"}]}], 
         RowBox[{
          RowBox[{"a12", " ", "a21", " ", "Rr"}], "-", 
          RowBox[{"a11", " ", "a22", " ", "Rr"}]}]], 
        FractionBox[
         RowBox[{
          RowBox[{"a12", " ", "Ra"}], "-", 
          RowBox[{"a11", " ", "Rb"}]}], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a12"}], " ", "a21", " ", "Rr"}], "+", 
          RowBox[{"a11", " ", "a22", " ", "Rr"}]}]], 
        FractionBox["1", "Rr"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["iA=", 
   MatrixForm[{{$CellContext`a22/(-$CellContext`a12 $CellContext`a21 + \
$CellContext`a11 $CellContext`a22), $CellContext`a12/($CellContext`a12 \
$CellContext`a21 - $CellContext`a11 $CellContext`a22), 
      0}, {$CellContext`a21/($CellContext`a12 $CellContext`a21 - \
$CellContext`a11 $CellContext`a22), $CellContext`a11/(-$CellContext`a12 \
$CellContext`a21 + $CellContext`a11 $CellContext`a22), 
      0}, {($CellContext`a22 $CellContext`Ra - $CellContext`a21 \
$CellContext`Rb)/($CellContext`a12 $CellContext`a21 $CellContext`Rr - \
$CellContext`a11 $CellContext`a22 $CellContext`Rr), ($CellContext`a12 \
$CellContext`Ra - $CellContext`a11 $CellContext`Rb)/(-$CellContext`a12 \
$CellContext`a21 $CellContext`Rr + $CellContext`a11 $CellContext`a22 \
$CellContext`Rr), $CellContext`Rr^(-1)}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8391665297510633`*^9, 3.8391674385041056`*^9, 3.8391674692080917`*^9, {
   3.839167527780157*^9, 3.839167538183487*^9}, {3.8391676759792757`*^9, 
   3.839167682342273*^9}, {3.839167735847275*^9, 3.8391677510212045`*^9}, 
   3.8391680165659404`*^9, 3.839168064750988*^9, 3.839168095404011*^9, {
   3.8391682987846594`*^9, 3.83916833968971*^9}, 3.8391684148407154`*^9, 
   3.8391686457600746`*^9, 3.8391687011995525`*^9, 3.839168752470543*^9, {
   3.839168858988812*^9, 3.8391688675008287`*^9}, {3.8391689024388084`*^9, 
   3.839168924317828*^9}, 3.839168973146821*^9, {3.8391690633018093`*^9, 
   3.8391690874417896`*^9}, {3.839169318653139*^9, 3.8391693279581537`*^9}, 
   3.8391710938944426`*^9, 3.8391719007246003`*^9, 3.839172881431718*^9, 
   3.8391730255927753`*^9, {3.839173476906745*^9, 3.8391734926307454`*^9}, 
   3.8391736406542344`*^9, 3.839173983695168*^9, {3.839174354517411*^9, 
   3.8391743676731787`*^9}, 3.839174444134224*^9, 3.8391751499112606`*^9, {
   3.8391751952252555`*^9, 3.839175234559268*^9}, {3.83917528418449*^9, 
   3.8391753578971863`*^9}, {3.839175409705187*^9, 3.8391754245832043`*^9}, {
   3.8391754715665064`*^9, 3.839175481749505*^9}, 3.8391756432058573`*^9, {
   3.839175859741132*^9, 3.8391758659001455`*^9}, {3.8391766651365976`*^9, 
   3.839176676784322*^9}, {3.8391777472137947`*^9, 3.839177758660797*^9}, 
   3.8391778108092394`*^9, 3.83918012853479*^9, 3.839429268361467*^9, 
   3.839623384507148*^9, 3.839623724895232*^9, 3.8396509142057986`*^9, {
   3.839673779352206*^9, 3.8396738220312133`*^9}, {3.839673883211213*^9, 
   3.8396738909882135`*^9}, 3.8396739421010785`*^9, 3.839673990538531*^9, 
   3.839674060994255*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[319]:=",ExpressionUUID->"f78e43ca-e229-4087-\
835a-7537df18c9e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"G=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         SuperscriptBox["a11", "2"], "+", 
         SuperscriptBox["a21", "2"], "+", 
         SuperscriptBox["Ra", "2"]}], 
        RowBox[{
         RowBox[{"a11", " ", "a12"}], "+", 
         RowBox[{"a21", " ", "a22"}], "+", 
         RowBox[{"Ra", " ", "Rb"}]}], 
        RowBox[{"Ra", " ", "Rr"}]},
       {
        RowBox[{
         RowBox[{"a11", " ", "a12"}], "+", 
         RowBox[{"a21", " ", "a22"}], "+", 
         RowBox[{"Ra", " ", "Rb"}]}], 
        RowBox[{
         SuperscriptBox["a12", "2"], "+", 
         SuperscriptBox["a22", "2"], "+", 
         SuperscriptBox["Rb", "2"]}], 
        RowBox[{"Rb", " ", "Rr"}]},
       {
        RowBox[{"Ra", " ", "Rr"}], 
        RowBox[{"Rb", " ", "Rr"}], 
        SuperscriptBox["Rr", "2"]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["G=", 
   MatrixForm[{{$CellContext`a11^2 + $CellContext`a21^2 + $CellContext`Ra^2, \
$CellContext`a11 $CellContext`a12 + $CellContext`a21 $CellContext`a22 + \
$CellContext`Ra $CellContext`Rb, $CellContext`Ra $CellContext`Rr}, \
{$CellContext`a11 $CellContext`a12 + $CellContext`a21 $CellContext`a22 + \
$CellContext`Ra $CellContext`Rb, $CellContext`a12^2 + $CellContext`a22^2 + \
$CellContext`Rb^2, $CellContext`Rb $CellContext`Rr}, {$CellContext`Ra \
$CellContext`Rr, $CellContext`Rb $CellContext`Rr, $CellContext`Rr^2}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8391665297510633`*^9, 3.8391674385041056`*^9, 3.8391674692080917`*^9, {
   3.839167527780157*^9, 3.839167538183487*^9}, {3.8391676759792757`*^9, 
   3.839167682342273*^9}, {3.839167735847275*^9, 3.8391677510212045`*^9}, 
   3.8391680165659404`*^9, 3.839168064750988*^9, 3.839168095404011*^9, {
   3.8391682987846594`*^9, 3.83916833968971*^9}, 3.8391684148407154`*^9, 
   3.8391686457600746`*^9, 3.8391687011995525`*^9, 3.839168752470543*^9, {
   3.839168858988812*^9, 3.8391688675008287`*^9}, {3.8391689024388084`*^9, 
   3.839168924317828*^9}, 3.839168973146821*^9, {3.8391690633018093`*^9, 
   3.8391690874417896`*^9}, {3.839169318653139*^9, 3.8391693279581537`*^9}, 
   3.8391710938944426`*^9, 3.8391719007246003`*^9, 3.839172881431718*^9, 
   3.8391730255927753`*^9, {3.839173476906745*^9, 3.8391734926307454`*^9}, 
   3.8391736406542344`*^9, 3.839173983695168*^9, {3.839174354517411*^9, 
   3.8391743676731787`*^9}, 3.839174444134224*^9, 3.8391751499112606`*^9, {
   3.8391751952252555`*^9, 3.839175234559268*^9}, {3.83917528418449*^9, 
   3.8391753578971863`*^9}, {3.839175409705187*^9, 3.8391754245832043`*^9}, {
   3.8391754715665064`*^9, 3.839175481749505*^9}, 3.8391756432058573`*^9, {
   3.839175859741132*^9, 3.8391758659001455`*^9}, {3.8391766651365976`*^9, 
   3.839176676784322*^9}, {3.8391777472137947`*^9, 3.839177758660797*^9}, 
   3.8391778108092394`*^9, 3.83918012853479*^9, 3.839429268361467*^9, 
   3.839623384507148*^9, 3.839623724895232*^9, 3.8396509142057986`*^9, {
   3.839673779352206*^9, 3.8396738220312133`*^9}, {3.839673883211213*^9, 
   3.8396738909882135`*^9}, 3.8396739421010785`*^9, 3.839673990538531*^9, 
   3.839674061002406*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[319]:=",ExpressionUUID->"2fb8dd56-70ff-4738-\
8804-3aa4fff8bb99"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"iG=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox[
         RowBox[{
          SuperscriptBox["a12", "2"], "+", 
          SuperscriptBox["a22", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a12", " ", "a21"}], "-", 
            RowBox[{"a11", " ", "a22"}]}], ")"}], "2"]], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"a11", " ", "a12"}], "+", 
           RowBox[{"a21", " ", "a22"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"]]}], 
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["a12", "2"]}], " ", "Ra"}], "+", 
          RowBox[{"a11", " ", "a12", " ", "Rb"}], "+", 
          RowBox[{"a22", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "a22"}], " ", "Ra"}], "+", 
             RowBox[{"a21", " ", "Rb"}]}], ")"}]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"], " ", "Rr"}]]},
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"a11", " ", "a12"}], "+", 
           RowBox[{"a21", " ", "a22"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"]]}], 
        FractionBox[
         RowBox[{
          SuperscriptBox["a11", "2"], "+", 
          SuperscriptBox["a21", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a12", " ", "a21"}], "-", 
            RowBox[{"a11", " ", "a22"}]}], ")"}], "2"]], 
        FractionBox[
         RowBox[{
          RowBox[{"a11", " ", "a12", " ", "Ra"}], "-", 
          RowBox[{
           SuperscriptBox["a11", "2"], " ", "Rb"}], "+", 
          RowBox[{"a21", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a22", " ", "Ra"}], "-", 
             RowBox[{"a21", " ", "Rb"}]}], ")"}]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"], " ", "Rr"}]]},
       {
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["a12", "2"]}], " ", "Ra"}], "+", 
          RowBox[{"a11", " ", "a12", " ", "Rb"}], "+", 
          RowBox[{"a22", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "a22"}], " ", "Ra"}], "+", 
             RowBox[{"a21", " ", "Rb"}]}], ")"}]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"], " ", "Rr"}]], 
        FractionBox[
         RowBox[{
          RowBox[{"a11", " ", "a12", " ", "Ra"}], "-", 
          RowBox[{
           SuperscriptBox["a11", "2"], " ", "Rb"}], "+", 
          RowBox[{"a21", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a22", " ", "Ra"}], "-", 
             RowBox[{"a21", " ", "Rb"}]}], ")"}]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"], " ", "Rr"}]], 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["a12", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["a21", "2"], "+", 
             SuperscriptBox["Ra", "2"]}], ")"}]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a22", " ", "Ra"}], "-", 
             RowBox[{"a21", " ", "Rb"}]}], ")"}], "2"], "-", 
          RowBox[{"2", " ", "a11", " ", "a12", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a21", " ", "a22"}], "+", 
             RowBox[{"Ra", " ", "Rb"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["a11", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["a22", "2"], "+", 
             SuperscriptBox["Rb", "2"]}], ")"}]}]}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"], " ", 
          SuperscriptBox["Rr", "2"]}]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["iG=", 
   MatrixForm[{{($CellContext`a12 $CellContext`a21 - $CellContext`a11 \
$CellContext`a22)^(-2) ($CellContext`a12^2 + $CellContext`a22^2), \
-($CellContext`a12 $CellContext`a21 - $CellContext`a11 $CellContext`a22)^(-2) \
($CellContext`a11 $CellContext`a12 + $CellContext`a21 $CellContext`a22), \
($CellContext`a12 $CellContext`a21 - $CellContext`a11 $CellContext`a22)^(-2) \
(-$CellContext`a12^2 $CellContext`Ra + $CellContext`a11 $CellContext`a12 \
$CellContext`Rb + $CellContext`a22 (-$CellContext`a22 $CellContext`Ra + \
$CellContext`a21 $CellContext`Rb))/$CellContext`Rr}, {-($CellContext`a12 \
$CellContext`a21 - $CellContext`a11 $CellContext`a22)^(-2) ($CellContext`a11 \
$CellContext`a12 + $CellContext`a21 $CellContext`a22), ($CellContext`a11^2 + \
$CellContext`a21^2) ($CellContext`a12 $CellContext`a21 - $CellContext`a11 \
$CellContext`a22)^(-2), ($CellContext`a12 $CellContext`a21 - $CellContext`a11 \
$CellContext`a22)^(-2) ($CellContext`a11 $CellContext`a12 $CellContext`Ra - \
$CellContext`a11^2 $CellContext`Rb + $CellContext`a21 ($CellContext`a22 \
$CellContext`Ra - $CellContext`a21 $CellContext`Rb))/$CellContext`Rr}, \
{($CellContext`a12 $CellContext`a21 - $CellContext`a11 $CellContext`a22)^(-2) \
(-$CellContext`a12^2 $CellContext`Ra + $CellContext`a11 $CellContext`a12 \
$CellContext`Rb + $CellContext`a22 (-$CellContext`a22 $CellContext`Ra + \
$CellContext`a21 $CellContext`Rb))/$CellContext`Rr, ($CellContext`a12 \
$CellContext`a21 - $CellContext`a11 $CellContext`a22)^(-2) ($CellContext`a11 \
$CellContext`a12 $CellContext`Ra - $CellContext`a11^2 $CellContext`Rb + \
$CellContext`a21 ($CellContext`a22 $CellContext`Ra - $CellContext`a21 \
$CellContext`Rb))/$CellContext`Rr, ($CellContext`a12 $CellContext`a21 - \
$CellContext`a11 $CellContext`a22)^(-2) ($CellContext`a12^2 \
($CellContext`a21^2 + $CellContext`Ra^2) + ($CellContext`a22 $CellContext`Ra - \
$CellContext`a21 $CellContext`Rb)^2 - 
       2 $CellContext`a11 $CellContext`a12 ($CellContext`a21 $CellContext`a22 + \
$CellContext`Ra $CellContext`Rb) + $CellContext`a11^2 ($CellContext`a22^2 + \
$CellContext`Rb^2)) $CellContext`Rr^(-2)}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8391665297510633`*^9, 3.8391674385041056`*^9, 3.8391674692080917`*^9, {
   3.839167527780157*^9, 3.839167538183487*^9}, {3.8391676759792757`*^9, 
   3.839167682342273*^9}, {3.839167735847275*^9, 3.8391677510212045`*^9}, 
   3.8391680165659404`*^9, 3.839168064750988*^9, 3.839168095404011*^9, {
   3.8391682987846594`*^9, 3.83916833968971*^9}, 3.8391684148407154`*^9, 
   3.8391686457600746`*^9, 3.8391687011995525`*^9, 3.839168752470543*^9, {
   3.839168858988812*^9, 3.8391688675008287`*^9}, {3.8391689024388084`*^9, 
   3.839168924317828*^9}, 3.839168973146821*^9, {3.8391690633018093`*^9, 
   3.8391690874417896`*^9}, {3.839169318653139*^9, 3.8391693279581537`*^9}, 
   3.8391710938944426`*^9, 3.8391719007246003`*^9, 3.839172881431718*^9, 
   3.8391730255927753`*^9, {3.839173476906745*^9, 3.8391734926307454`*^9}, 
   3.8391736406542344`*^9, 3.839173983695168*^9, {3.839174354517411*^9, 
   3.8391743676731787`*^9}, 3.839174444134224*^9, 3.8391751499112606`*^9, {
   3.8391751952252555`*^9, 3.839175234559268*^9}, {3.83917528418449*^9, 
   3.8391753578971863`*^9}, {3.839175409705187*^9, 3.8391754245832043`*^9}, {
   3.8391754715665064`*^9, 3.839175481749505*^9}, 3.8391756432058573`*^9, {
   3.839175859741132*^9, 3.8391758659001455`*^9}, {3.8391766651365976`*^9, 
   3.839176676784322*^9}, {3.8391777472137947`*^9, 3.839177758660797*^9}, 
   3.8391778108092394`*^9, 3.83918012853479*^9, 3.839429268361467*^9, 
   3.839623384507148*^9, 3.839623724895232*^9, 3.8396509142057986`*^9, {
   3.839673779352206*^9, 3.8396738220312133`*^9}, {3.839673883211213*^9, 
   3.8396738909882135`*^9}, 3.8396739421010785`*^9, 3.839673990538531*^9, 
   3.8396740610125275`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[319]:=",ExpressionUUID->"c01c6717-150e-48b6-\
831f-c85be1490d24"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"sqrtG=\"\>", "\[InvisibleSpace]", 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a12", " ", "a21"}], "-", 
        RowBox[{"a11", " ", "a22"}]}], ")"}], "2"], " ", 
     SuperscriptBox["Rr", "2"]}]]}],
  SequenceForm[
  "sqrtG=", (($CellContext`a12 $CellContext`a21 - $CellContext`a11 \
$CellContext`a22)^2 $CellContext`Rr^2)^Rational[1, 2]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8391665297510633`*^9, 3.8391674385041056`*^9, 3.8391674692080917`*^9, {
   3.839167527780157*^9, 3.839167538183487*^9}, {3.8391676759792757`*^9, 
   3.839167682342273*^9}, {3.839167735847275*^9, 3.8391677510212045`*^9}, 
   3.8391680165659404`*^9, 3.839168064750988*^9, 3.839168095404011*^9, {
   3.8391682987846594`*^9, 3.83916833968971*^9}, 3.8391684148407154`*^9, 
   3.8391686457600746`*^9, 3.8391687011995525`*^9, 3.839168752470543*^9, {
   3.839168858988812*^9, 3.8391688675008287`*^9}, {3.8391689024388084`*^9, 
   3.839168924317828*^9}, 3.839168973146821*^9, {3.8391690633018093`*^9, 
   3.8391690874417896`*^9}, {3.839169318653139*^9, 3.8391693279581537`*^9}, 
   3.8391710938944426`*^9, 3.8391719007246003`*^9, 3.839172881431718*^9, 
   3.8391730255927753`*^9, {3.839173476906745*^9, 3.8391734926307454`*^9}, 
   3.8391736406542344`*^9, 3.839173983695168*^9, {3.839174354517411*^9, 
   3.8391743676731787`*^9}, 3.839174444134224*^9, 3.8391751499112606`*^9, {
   3.8391751952252555`*^9, 3.839175234559268*^9}, {3.83917528418449*^9, 
   3.8391753578971863`*^9}, {3.839175409705187*^9, 3.8391754245832043`*^9}, {
   3.8391754715665064`*^9, 3.839175481749505*^9}, 3.8391756432058573`*^9, {
   3.839175859741132*^9, 3.8391758659001455`*^9}, {3.8391766651365976`*^9, 
   3.839176676784322*^9}, {3.8391777472137947`*^9, 3.839177758660797*^9}, 
   3.8391778108092394`*^9, 3.83918012853479*^9, 3.839429268361467*^9, 
   3.839623384507148*^9, 3.839623724895232*^9, 3.8396509142057986`*^9, {
   3.839673779352206*^9, 3.8396738220312133`*^9}, {3.839673883211213*^9, 
   3.8396738909882135`*^9}, 3.8396739421010785`*^9, 3.839673990538531*^9, 
   3.8396740610175557`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[319]:=",ExpressionUUID->"d04988e5-f472-42e0-\
89ac-295a6f14a371"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"GH=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{
         SuperscriptBox["a11", "2"], "+", 
         SuperscriptBox["a21", "2"]}], 
        RowBox[{
         RowBox[{"a11", " ", "a12"}], "+", 
         RowBox[{"a21", " ", "a22"}]}]},
       {
        RowBox[{
         RowBox[{"a11", " ", "a12"}], "+", 
         RowBox[{"a21", " ", "a22"}]}], 
        RowBox[{
         SuperscriptBox["a12", "2"], "+", 
         SuperscriptBox["a22", "2"]}]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["GH=", 
   MatrixForm[{{$CellContext`a11^2 + $CellContext`a21^2, $CellContext`a11 \
$CellContext`a12 + $CellContext`a21 $CellContext`a22}, {$CellContext`a11 \
$CellContext`a12 + $CellContext`a21 $CellContext`a22, $CellContext`a12^2 + \
$CellContext`a22^2}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8391665297510633`*^9, 3.8391674385041056`*^9, 3.8391674692080917`*^9, {
   3.839167527780157*^9, 3.839167538183487*^9}, {3.8391676759792757`*^9, 
   3.839167682342273*^9}, {3.839167735847275*^9, 3.8391677510212045`*^9}, 
   3.8391680165659404`*^9, 3.839168064750988*^9, 3.839168095404011*^9, {
   3.8391682987846594`*^9, 3.83916833968971*^9}, 3.8391684148407154`*^9, 
   3.8391686457600746`*^9, 3.8391687011995525`*^9, 3.839168752470543*^9, {
   3.839168858988812*^9, 3.8391688675008287`*^9}, {3.8391689024388084`*^9, 
   3.839168924317828*^9}, 3.839168973146821*^9, {3.8391690633018093`*^9, 
   3.8391690874417896`*^9}, {3.839169318653139*^9, 3.8391693279581537`*^9}, 
   3.8391710938944426`*^9, 3.8391719007246003`*^9, 3.839172881431718*^9, 
   3.8391730255927753`*^9, {3.839173476906745*^9, 3.8391734926307454`*^9}, 
   3.8391736406542344`*^9, 3.839173983695168*^9, {3.839174354517411*^9, 
   3.8391743676731787`*^9}, 3.839174444134224*^9, 3.8391751499112606`*^9, {
   3.8391751952252555`*^9, 3.839175234559268*^9}, {3.83917528418449*^9, 
   3.8391753578971863`*^9}, {3.839175409705187*^9, 3.8391754245832043`*^9}, {
   3.8391754715665064`*^9, 3.839175481749505*^9}, 3.8391756432058573`*^9, {
   3.839175859741132*^9, 3.8391758659001455`*^9}, {3.8391766651365976`*^9, 
   3.839176676784322*^9}, {3.8391777472137947`*^9, 3.839177758660797*^9}, 
   3.8391778108092394`*^9, 3.83918012853479*^9, 3.839429268361467*^9, 
   3.839623384507148*^9, 3.839623724895232*^9, 3.8396509142057986`*^9, {
   3.839673779352206*^9, 3.8396738220312133`*^9}, {3.839673883211213*^9, 
   3.8396738909882135`*^9}, 3.8396739421010785`*^9, 3.839673990538531*^9, 
   3.8396740610214286`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[319]:=",ExpressionUUID->"430abedb-10d4-4824-\
9b92-9dff1dc2455c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"iGH=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox[
         RowBox[{
          SuperscriptBox["a12", "2"], "+", 
          SuperscriptBox["a22", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a12", " ", "a21"}], "-", 
            RowBox[{"a11", " ", "a22"}]}], ")"}], "2"]], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"a11", " ", "a12"}], "+", 
           RowBox[{"a21", " ", "a22"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"]]}]},
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"a11", " ", "a12"}], "+", 
           RowBox[{"a21", " ", "a22"}]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a12", " ", "a21"}], "-", 
             RowBox[{"a11", " ", "a22"}]}], ")"}], "2"]]}], 
        FractionBox[
         RowBox[{
          SuperscriptBox["a11", "2"], "+", 
          SuperscriptBox["a21", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"a12", " ", "a21"}], "-", 
            RowBox[{"a11", " ", "a22"}]}], ")"}], "2"]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["iGH=", 
   MatrixForm[{{($CellContext`a12 $CellContext`a21 - $CellContext`a11 \
$CellContext`a22)^(-2) ($CellContext`a12^2 + $CellContext`a22^2), \
-($CellContext`a12 $CellContext`a21 - $CellContext`a11 $CellContext`a22)^(-2) \
($CellContext`a11 $CellContext`a12 + $CellContext`a21 $CellContext`a22)}, \
{-($CellContext`a12 $CellContext`a21 - $CellContext`a11 \
$CellContext`a22)^(-2) ($CellContext`a11 $CellContext`a12 + $CellContext`a21 \
$CellContext`a22), ($CellContext`a11^2 + $CellContext`a21^2) \
($CellContext`a12 $CellContext`a21 - $CellContext`a11 \
$CellContext`a22)^(-2)}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8391665297510633`*^9, 3.8391674385041056`*^9, 3.8391674692080917`*^9, {
   3.839167527780157*^9, 3.839167538183487*^9}, {3.8391676759792757`*^9, 
   3.839167682342273*^9}, {3.839167735847275*^9, 3.8391677510212045`*^9}, 
   3.8391680165659404`*^9, 3.839168064750988*^9, 3.839168095404011*^9, {
   3.8391682987846594`*^9, 3.83916833968971*^9}, 3.8391684148407154`*^9, 
   3.8391686457600746`*^9, 3.8391687011995525`*^9, 3.839168752470543*^9, {
   3.839168858988812*^9, 3.8391688675008287`*^9}, {3.8391689024388084`*^9, 
   3.839168924317828*^9}, 3.839168973146821*^9, {3.8391690633018093`*^9, 
   3.8391690874417896`*^9}, {3.839169318653139*^9, 3.8391693279581537`*^9}, 
   3.8391710938944426`*^9, 3.8391719007246003`*^9, 3.839172881431718*^9, 
   3.8391730255927753`*^9, {3.839173476906745*^9, 3.8391734926307454`*^9}, 
   3.8391736406542344`*^9, 3.839173983695168*^9, {3.839174354517411*^9, 
   3.8391743676731787`*^9}, 3.839174444134224*^9, 3.8391751499112606`*^9, {
   3.8391751952252555`*^9, 3.839175234559268*^9}, {3.83917528418449*^9, 
   3.8391753578971863`*^9}, {3.839175409705187*^9, 3.8391754245832043`*^9}, {
   3.8391754715665064`*^9, 3.839175481749505*^9}, 3.8391756432058573`*^9, {
   3.839175859741132*^9, 3.8391758659001455`*^9}, {3.8391766651365976`*^9, 
   3.839176676784322*^9}, {3.8391777472137947`*^9, 3.839177758660797*^9}, 
   3.8391778108092394`*^9, 3.83918012853479*^9, 3.839429268361467*^9, 
   3.839623384507148*^9, 3.839623724895232*^9, 3.8396509142057986`*^9, {
   3.839673779352206*^9, 3.8396738220312133`*^9}, {3.839673883211213*^9, 
   3.8396738909882135`*^9}, 3.8396739421010785`*^9, 3.839673990538531*^9, 
   3.839674061029425*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[319]:=",ExpressionUUID->"735f1b3c-8833-46a2-\
ab8b-000a321f480b"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1278, 1348},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
Magnification:>1.3 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 15175, 267, 969, "Input",ExpressionUUID->"1874d45f-36c8-481d-a96c-727d8c067141"],
Cell[CellGroupData[{
Cell[15780, 293, 4479, 95, 105, "Print",ExpressionUUID->"f78e43ca-e229-4087-835a-7537df18c9e0"],
Cell[20262, 390, 3787, 77, 75, "Print",ExpressionUUID->"2fb8dd56-70ff-4738-8804-3aa4fff8bb99"],
Cell[24052, 469, 9358, 215, 132, "Print",ExpressionUUID->"c01c6717-150e-48b6-831f-c85be1490d24"],
Cell[33413, 686, 2275, 41, 39, "Print",ExpressionUUID->"d04988e5-f472-42e0-89ac-295a6f14a371"],
Cell[35691, 729, 3167, 64, 52, "Print",ExpressionUUID->"430abedb-10d4-4824-9b92-9dff1dc2455c"],
Cell[38861, 795, 4353, 95, 86, "Print",ExpressionUUID->"735f1b3c-8833-46a2-ab8b-000a321f480b"]
}, Open  ]]
}, Open  ]]
}
]
*)

